home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LOGBOOK.PRG < prev    next >
Text File  |  1987-07-27  |  2KB  |  90 lines
  1. * G3ZCZ AMATEUR RADIO LOG PACKAGE 861128
  2. * (c) COPYRIGHT JOE KASSER G3ZCZ 1985,1986,1987
  3.  
  4. SET TALK OFF
  5. CLEAR
  6. STORE 'LOG       ' TO logndx
  7. STORE 'LOG       ' TO logbook
  8. STORE 'WAZ       ' TO waz
  9. STORE 'WAS       ' TO was
  10. STORE 'AWARD     ' TO award
  11. STORE 'DXCC      ' TO dxcc
  12. STORE 'OBLAST    ' TO oblast
  13. STORE 'G3ZCZ     ' TO callsign
  14. STORE 0   TO gmt
  15. STORE 'LOGBOOK' TO susie
  16. IF FILE(susie+'.MEM')
  17.    RESTORE FROM LOGBOOK
  18. ELSE
  19.    ERASE
  20.    @ 12,4 SAY  'INITALISATION SEQUENCE '
  21.    ?
  22.    ACCEPT 'What is your callsign ? ' TO callsign
  23.    ACCEPT 'What is your offset to UTC (HH) ? ' TO cgmt
  24.    STORE VAL(cgmt) TO gmt
  25. ENDIF
  26. RELEASE susie
  27.  
  28. STORE ' ' TO task
  29. DO WHILE  task <> '*'
  30.    ERASE
  31.  
  32.    * DISPLAY MENU
  33.    @ 2,10 SAY 'G3ZCZ LOGGING PACKAGE VERSION 2.25'
  34.    @ 4,15 SAY 'COPYRIGHT (c) 1986, 1987'
  35.    @ 6,1 SAY 'Default LOG database is'
  36.    @ 6,25 SAY logbook
  37.    @ 8,10 SAY  'LOG FUNCTIONS                    L'
  38.    @ 9,10 SAY  'AWARDS                           A'
  39.    @ 10,10 SAY 'MISCELLANEOUS FUNCTIONS          M'
  40.    @ 11,10 SAY 'DISPLAY FILES ON DISK DRIVE      F'
  41.    @ 16,10 SAY 'RETURN TO DOS                    Q'
  42.    @ 18,10 SAY 'QUIT LOG PACKAGE                 *'
  43.    @ 20,1 SAY 'QRU'
  44.    @ 20,10 GET task
  45.    READ
  46.  
  47.    DO CASE
  48.  
  49.    CASE task = 'F'
  50.  
  51.       ERASE
  52.       ACCEPT 'WHICH DRIVE ' TO diskdrive
  53.       STORE diskdrive + ':' TO diskdrive
  54.       DISPLAY FILES ON &diskdrive
  55.       RELEASE diskdrive
  56.       WAIT
  57.  
  58.    CASE task = 'L'
  59.         DO LOGFUNCT
  60.  
  61.    CASE task = 'A'
  62.         DO LOGAWARD
  63.  
  64.    CASE task = 'M'
  65.         DO LOGMISCF
  66.  
  67.    CASE task = 'Q'
  68.         QUIT
  69.    ENDCASE
  70.  
  71. ENDDO
  72. RELEASE task,cgmt
  73. SAVE TO logbook
  74. USE
  75. ERASE
  76. @ 12,12 SAY 'Enter QUIT <CR> to return to DOS'
  77. @ 20,40 SAY '73 de G3ZCZ'
  78. RETURN
  79. 
  80. SET INDEX TO &logbook
  81. ERASE
  82. *MAIN LOOP
  83. DO WHILE callflag
  84.  
  85.    STORE "-" TO nqslsent
  86.    STORE "-" TO nqslrx
  87.    STORE "          " TO ncall
  88. * CHANGE THE LENGTH OF THE SPACES BETWEEN THE " " ON THE NEXT LINE
  89. * IF YOU CHANGE THE WIDTH OF THE COMMENTS
  90.    S